RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE NOTE Cec 000! 
= bd 
XBLISS32C 


ADDRESSING_ MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
) =z 


wie 


BEGIN 


' 
. 
eRe e Ree RARER RAHA RARER AARARETAAAT AAT EA ATER AEA ERA AeRAAReAeAe eee Aee 


a 
‘@ % 
' COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. “ 
ws ALL RIGHTS RESERVED. x 
7 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF rus LICENSE AND with THE * 
\e IN CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
© 
y 
* 
ea 
& 
® 
® 
® 
© 
® 
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WN =O DONO VWVE WN $0 ODNAOUN EWN SO ODONOAUE WN SOO ONOUNE Wn 
per one oe oer Sr er eer er er ers 


'® TRANSFERRED. 


iw THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
- eepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eee eee ee AeA AAAAAAAAAAAARARAARAAAARARERAATATA AAA AAAAAAAAAAARAAAAAAARAAA AEE 
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ABSTRAC]: Processes the .NOTE command 


ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: June, 1978 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
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44 peorne "Revision History’ 
? { MODIFIED BY: 
006 KAD00006 Keith Dawson 9-Jun 


-1983 
Fix .NOTE margins to be more sensible. This is motivated by 
the fact that notes come out looking centered on .PS, instead 
ef on .LM-.RM as desire “aoe changed the number © 
nes before a note to 1 from 2. 


005 KAD00005 Keith Daw 07-Mar-1983 
tan Bey of alt Po Updated sodyse names, idents, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
a copyright dates. feoeeed requ es to BLISS library. 
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16-Sep-1984 01:18: VAX-11 Bliss-32 V4.0-742 e 3 
Module Level Declarations 12-88-1382 94: 8:3) Disk SVMSMASTER: CRUNOFF .SRCINOTE.BLI;1 (20 (3) 
5 ! SBTTL ‘Module Level Declarations’ 
TABLE OF CONTENTS: 
ii 
1 ! INCLUDE FILES: 
5 ! ! 
$ 1 LIBRARY ‘NXPORT: XPORT" ; ' XPORT Library 
: } REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
8 1 SIF DSAPLUS XTHEN 
! ew REQ:DPLLIB'; ! DSRPLUS BLISS Library 
88 1 meee! "REQ:DSRLIB'; ! DSR BLISS Library 
04 1 XFi 
Og 1 
1! 
07 1 ! MACROS 
08 1! 
09 1! 
i? ! EQUATED SYMBOLS: 
iF 2 ; 
1 1 LITERAL u 
8 14 1 skip_before_note = 1, {Spacing b before *“*NOTE'’ 
15 1 d from 2 by KAD, 6-10-1983. 
8 16 \ skip_after_note = 1; 'Spacing a .. ""NOTE'’ 
18 1 | OWN STORAGE: 
9 4 i 
: EXTERNAL REFERENCES: 
.. : 
4 1 EXTERNAL 
2. | gca : gca_definition, 
$ 1 ndt : ref pdt_definition, 
! sca : sca_definition; 
Sy 
0 1 
1 1 EXTERNAL ROUTINE 
§ 1 centxt, 
1 gcskip, 
¢ } reba 
c 
' sekisve: 


Module Level Declarations 1$-s¢ at 7 9} 9 2) TecSumenas SfER-choNOre SRcINOTE.BLI:1 31 wer 3 


; 13) } GLOBAL ROUTINE NOTE (HANDLER_CODE) : NOVALUE = 

: 118 1 !e¢ 

; ie r ! FUNCTIONAL DESCRIPTION: 

; 116 43 1 ; See the ABSTRACT, above. 

; 118 43 1 | FORMAL PARAMETERS: 

; } , 2 : HANDLER_CODE indicates which command is to be processed. 
; 19¢ 43 { IMPLICIT INPUTS: None 

; 1¢4 i { IMPLICIT OUTPUTS: None 

eS 6 38 1 | ROUTINE VALUE: 

3 : f 20 ! COMPLETION CODES: None 

; 3 36 | SIDE EFFECTS: None 

: 131 0258 1 i-- 

3 132 8 59 BEGIN 

3 3 60 LOCAL 

3 135 0 e margin_adjust, 'How much to adjust the margins. 
° SKIP; 

3 4 6 

3 139 0264 IF NOT stkfrm (.handler_code) 

: 138 8 65 THEN 

; 172 8 66 RETURN; ‘Quit if stack overflow 
5 141 8 68 skip = skip_before_note * .sca_spacing; 

: 146 +4 gtpc (. skip” + (skip etter note + -pdt. tp + pe sca_spacing); 
3; (14 0270 gcskip (max (0, .s skip - (Tsca_spacing = 1)) 

3 144 0271 Set yp formatting detinition’ 

3; «6145 0) Le sca_ fill = true; 

3 «(146 027 sca ~Justify = .gca_autojust or .sca_justify; ‘Turn on justification unless user has said .NAJ. 
; \et ie , 86a, “crock = .sca_justify; 

: 149 7 i Margin adjustment. 

; 150 7 

3 13) 7 IF (.sca_rm = .sca_lm) GTR 60 

3 136 7 THEN 

3 13? 30 mp margin_adjust = .gca_note_prim ! (8) 

; 138 § margin_adjust = .gca_note_alt; ! (4) 

; 137 : !Defensive margin computation in case margins are very restrictive 
; 139 IF (.sca_lm + .margin_adjust) LSS .sca_rm 

; 160 THEN 

; 193 3 sca_lm = .sca_lm + .margin_adjust; 

: 188 0 IF (.sca_rm = .margin_adjust) GTR .sca_lm 

3: «6164 91 THEN 

3 193 35 sca_rm = .sca_rm = .margin_adjust; 

: 189 94 ! End of margin-adjustment computations. 
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Module Level Declarations 390713 95508:5) D 


:Determine if text was given on the .NOTE command. 


IF NOT centxt (ch$ptr (uplit ("NOTE')), 4) 
THEN 


'Text after ''.NOTE’’. Fetch and output text centered. 


getlin (true, false, 0, true); 


!Prepare for the text that will probably come. 
gcskip (.sca_spacing); 


A 
I 


END; ‘End of NOTE 
.TITLE NOTE 
SIDENT \V04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
45 54 4F 4E 00000 P.AAA: .ASCII \NOTE\ 
.EXTRN GCA, PDT, SCA, CENTXT 
SEXTRN GCSKIP, GETLIN, GTPC 
eEXTRN STKFRM 
.PSECT $CODE$,NOWRT,2 
003¢ 00000 .ENTRY NOTE Save R2,R3,R4,R5 
55 000000006 EF 9€ 90008 MOVAB SKIP, R 
54 000000006 EF 9E 000 MOVAB SCA+124, R4& 
04 AC 0D 0010 PUSHL HANDLER. CODE 
000000006 FF gi FB 001 CALLS #1, STKFRM 
1 0 E 1A BLBS RG, 1$ 
4 0001D RET 
52 00 84 DO OOO1E 1$: MOVL asCAti24, SKIP 
50 000000006 EF DO 000 MOVL. PDT, R 
08 Ad 2 Ci 00 ADDL #2, °8(RO), RO 
50 00 B84 ¢4 MULL astael24 RO 
6042 OF PUSHAB (RO)CSKIPJ 
000000006 EF 01 F CALLS #1, GIPC 
2 00 B4 C SUBL2  aSCA+124, R2 
D 4 INCL R 
D 4 PUSHL R 
02 1 4 BGEQ é 
E D 46 CLRL SP) 
65 1 F 48 2%: CALLS #1, GCSKIP 
EC B4 1 0 48 MOVL #1 as A+104 
£8 B4 000000096 (i: LF BISL2  aGCa+l6, aSCA+100 
F4 BS £8 B4 D 57 MOVL a@SCA+1 6. aSCA+i12 
1 FC B4 D MOVL a@SCA+120. RI 
FB OAM OD MOVL Scat R2 
: . ¢ ADDL3 #60, (R2), RO 
1 p CMPL =e R1, RO 
9 BLEG 46s 3$ 
50 000000006 Ff p p MOVL GCA+148, MARGIN_ADJUST 
50 000000006 EF 00 00076 38: MOVL § GCA+152, MARGIN_ADJUST 
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Ou~000 Module Level Declarations 19-8 Sep -1382 9: 48: }} DISKSVMSMASTER: CRUNOFF. SRCINOTE.BLI;1 fage “8 
53 $2 C1 ip 4$ ADDL3 MARGIN_ADJUST, (R2), R3 3 0286 
° 4 geeh | Rge : 
$2 C 6 ADDL MARGIN_ADJUST, (R2) F 0288 
¢ 5$ SUBL2 MARGIN-ADJUST, R1 : 0290 
’ 8 er a aa : 
FC B4 0¢ SUBL2 MARGIN_ADJUST, a@SCA+120 : 029 : 
4 pp 6: PUSHL 4&4 ; 
00000000' EF 9F PUSHAB P.AAA : 
000000006 FF FB D CALLS #2, CENTXT : 
D E M4 BLBS _—RO, : 
bb A PUSHL + 0301 
E 7C O00A9 CLROQ (SP) : 
4 DD O00AB PUSHL : 
000000006 EF 4 FB OOOAD CALLS GEILIN : 
00 B84 DD 000B4 7$: PUSHL Bud + 0304 
65 01 FB 00087 CALLS , GCSKIP : 
04 OO00BA RET : 0306 
; Routine Size: 187 bytes, Routine Base: S$CODE$ + 0000 
; 180 0307 1 
; 181 0308 1 END ‘End of module 
> 182 0309 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: $PLITS 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCi, REL, CON .NOPIC ALIGN (2) 
3 SCODES 187 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
5 Library Statistics 
oe Ga a aa a Symbols -------- Pages Processing 
, File Total Loaded Percent Mapped Time 
: S5SDUA 8:CSYSLIBIXPORT.L32;1 9 0 252 0:00. 
; 55$DUA28 Hevesi me SRCIDSRLIB.L32;1 1348 8 1 BS $0 :078 
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Module Level Declarations 1b-se =300n 138i 9}: 49: }} ot 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NOTE/OBJ=OBJ$:NOTE MSRC$:NOTE/UPDATE=(ENHS$:NOTE) 


Size: 187 code + 4 data bytes 
Run “Time: 8 :05. 

Elapsed Time: s1¢. 

Lines/CPU Min 8 
Cexemes/CPU-Min: 14 

penery 9 Used: 56 pages 

Compilation Complete 
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